;; EX-35.scm - What was I thinking? (JMcC)

(let* ((z (RLPF.ar 
	   (Pulse.ar 
	    (Max (SinOsc.kr 4 0 1 80)
		 (Decay.ar (LFPulse.ar 0.1 0 0.05 (Impulse.ar 8 0 500)) 2))
	    (LFNoise1.kr 0.157 0.4 0.5) 
	    0.04)
	   (LFNoise1.kr 0.2 2000 2400)
	   0.2))
       (y (Mul z 0.6)))
  (Add z 
       (list (Add (CombL.ar y 0.06 (LFNoise1.kr (random 0.3) 0.025 0.035) 1)
		  (CombL.ar y 0.06 (LFNoise1.kr (random 0.3) 0.025 0.035) 1))
	     (Add (CombL.ar y 0.06 (LFNoise1.kr (random 0.3) 0.025 0.035) 1)
		  (CombL.ar y 0.06 (LFNoise1.kr (random 0.3) 0.025 0.035) 1)))))

